home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 4093.ZIP / BRAINSCP.ZIP / FRAME.PAS < prev    next >
Pascal/Delphi Source File  |  1986-01-02  |  2KB  |  68 lines
  1. procedure Frame;
  2. {written by W. Jeffrey Wilson & lynne ostergren,
  3.             Department of Psychological Sciences,
  4.             Indiana University - Purdue University at Fort Wayne,
  5.             2101 Coliseum Boulevard East,
  6.             Fort Wayne, IN  46805.
  7. copyright, 1985 by Purdue Research Foundation, West Lafayette, Indiana 47907.
  8.                     All Rights Reserved.  Unmodified copies of this program
  9.                     may be freely distributed.  Each copy must contain this
  10.                     notice.}
  11.  
  12. var
  13.    x : 1..80;
  14.    y : 1..25;
  15.  
  16. begin
  17.    for y:= 1 to 24 do
  18.       begin
  19.          GotoXY(1,y);
  20.          write(chr(179));
  21.          GotoXY(80,y);
  22.          write(chr(179));
  23.       end;
  24.    for x:= 1 to 79 do
  25.       begin
  26.          GotoXY(x,1);
  27.          write(chr(196));
  28.          GotoXY(x,24);
  29.          write(chr(196));
  30.       end;
  31.    GotoXY(1,1);
  32.    write(chr(218));
  33.    GotoXY(1,24);
  34.    write(chr(192));
  35.    GotoXY(80,1);
  36.    write(chr(191));
  37.    GotoXY(80,24);
  38.    write(chr(217));
  39.    GotoXY(1,25);
  40.    write('BRAINSCAPE by Wilson & ostergren    *    copr. 1985, Purdue Research Foundation')
  41. end;
  42.  
  43. procedure InFrame;
  44. var
  45.    x : 1..80;
  46.    y : 1..25;
  47.  
  48. begin
  49.    window(1,1,80,25);
  50.    for y:= 14 to 23 do
  51.       begin
  52.          GotoXY(50,y);
  53.          writeln(chr(179));
  54.       end;
  55.    for x:= 1 to 79 do
  56.       begin
  57.          GotoXY(x,13);
  58.          write(chr(196));
  59.       end;
  60.    GotoXY(1,13);
  61.    write(chr(195));
  62.    GotoXY(50,24);
  63.    write(chr(193));
  64.    GotoXY(80,13);
  65.    write(chr(180));
  66.    GotoXY(50,13);
  67.    write(chr(194));
  68. end;